

DEFINE BUFFER mnd FOR mnd_det.

FOR EACH mnd_det EXCLUSIVE-LOCK WHERE mnd_det.mnd_nbr BEGINS "50." :

    FIND FIRST mnd WHERE mnd.mnd_exec = mnd_det.mnd_exec NO-LOCK NO-ERROR.

    IF AVAILABLE mnd THEN
        ASSIGN
            mnd_det.mnd_canrun = mnd.mnd_canrun .

END.
